#!/usr/bin/perl -w

$file = "test.dat";
open (RF, $file) or die "Can't open $file";
while ($z = <RF>) {
        if ($z =~ /(.{2}).+?\1/) {
                print $` . ":" . $& . ":" . $';
        }
}
close RF;
